home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00145_Script_sh_CheckRollovers < prev    next >
Text File  |  1997-07-22  |  729b  |  17 lines
  1. on checkRollovers
  2.   --  if checkRollovers() = false then go "dim" -- flashy rollovers
  3.   --  set dummy = checkRollovers() -- sticky rollovers
  4.   GLOBAL gMarkerRectList, gMarkerRectListCount, gQTchan, -- , rollFlag
  5.   --  set rollFlag = false
  6.   repeat with x = 1 to gMarkerRectListCount
  7.     if inside (point(the mouseH, the mouseV), getat(gMarkerRectList, x)) then
  8.       -- if the memberNum of sprite gQTchan > 0 then cursor [the number of cast "c_movie", the number of cast "c_movie_mask"]
  9.       go string(getOne(gMarkerRectList, getat(gMarkerRectList, x)))
  10.       --      set rollFlag = true
  11.       exit repeat
  12.     end if
  13.     -- else go "dim"
  14.   end repeat
  15.   --  return rollFlag -- needed for non-sticky rollovers
  16. end
  17.